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NEWSLETTER NO. 22 


NOVEMBER 1985 


Hi , 

Last month was the Annual General Meeting (the first one we have had 
in twenty one months of operation) and it was held in near darkness. 
Unfortunately, soon after we started arriving at the hall, the power 
-went off, and we were left with the light of a small fluorescent, and 
a spotlight powered by Chris's car through the window. 


The meeting went very well. Seven committee members were elected. 
The committee won't know itself. Those elected were: 

Andy Russell President 

Nola Huggins Secretary /Treasurer 

and the following were elected as committee members:- 

Mark Langdon 
David Donaldson 
Peter Hoyes 
Chris Bishop 
Ross Kay 


It was agreed at the meeting that a copy of the constitution be 
publ i shed in this ne>;t newsletter, and that a copy be given to every 
new member joining our group. 


It was 
before 
1986 . 
rema i n 


agreed by all that subscriptions would not be raised at least 
the next Annual General Meeting, which will be-held in March 
It was further agreed that the new committee members would 
in force until the March 1937 Annual General Meeting. 


A balance sheet was presented and a copy of this is enclosed in this 
newsletter for our country members. 


The meeting ended very early - and the power came back on around 10 
p.m. which meant that the new committee was welcomed over a cup of 
black coffee (the dairy having shut because of the lack of power). 


SUPER CHESS 


Andy was trying to fix this program, but it proved to be more bother 
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than it is worth. The title page is a bit strange, but this doesn't 
affect the game in any way. This version of Chess is extremely goods 
both Andy and myself will vouch for it. 


TOOLKIT 


This program is now available on eprom direct from Modec Instruments 
Ltd, 16 Hudson Avenue, Upper Hutt, for the sum of t45.00. 

For your $45.00 you get two eproms containing the program, and an li 
page set of comprehensive instructions. Toolkit is a program designed 
to enable you to write, execute and debug machine code programs, copy 
Colour Genie tapes and analyse and alter machine code written by 
others. It is a machine code monitor program with 26 commands 
available. 

To get Toolkit working, you will need a rom board <the group sell them 
at $55.00 each ) . 


Some of the commands available with Toolkit are:- 


COMMAND 

SYMBOL 

ROM No 

DESCRIPTION 

Breakpoint 

© 


Set breakpoint at specified address, . 

Ascii' 

A 

1 

Dump memory in ascii format 

Binary,, 

B 


Maths ?•; he;;/dec/hinary convertor 

Cancel : 

c 

1 

Cancel printer 

Dump 

D 

1 

Dump memory in he;-: format 

Edit " 

E 

1 

Write ?•; alter programs in RAM 

Find 

F 

1 

F i n d s p e c i f i e d b y t e 

Goto 

0 

1 

Transfers control to anywhere in memory 

Hunt 

H 

1 

Locate specified 16 bit address 

Iriput/init 

I 

1 

Input from port/ Initialise TOOLKIT 

Jump Cal cul ator 

J 

1 

Calculate relative jump displacements 

Key read 

K 

1 

Write text into (Tiemory 

Load : ' ' ^ 

L 

•Im 

Load system/ basic tapes 

Move L 

M 

1 

Move any memory block without overlap 

Output 

0 

1 

Output to port 

Place,;;' 

P 

•“l 

Place a tracepoint 

Qui t > ’ 

Q 

I 

Quit to basic ; ''I 

Redefine 

R 


R e d e f i n e u s e r a r e a ' ■' 6 ■ 

Symbol ' 

S 

1 

Symbolic duniP (disassembler) ■ 

TraceKT'v'^ ; 

T 


Trsice operation of a program 

User'';l:i''yi;:,, 

U 

1 

Activate user routine , 

Ver 1 f y";?T ' ■ ' 

V 

1 

CoiTipare two blocks of memory ' 


w 

2 

Write Genie/TR3-80 system tape ■ ; M/kk- • " ' 

Exchanse 

X 

1 

Sy^ap two blocks of inemory 

Y ; 'c ornniah d ■ f 

Y 

1 

Turn printer output on 


■1, 

1 

Fill any block of memory with. a specified 

'■ ; '■'S' ./ 'iC;'': 
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Anyone who is getting into, or has got into, machine code programming, 
could really use this program. It ^oo^^5 to be much easier to use, and 
more versatile than Zen or any of the monitors we have. 

This program will not be available through the Users Group. It would 
cost us just as much as Modec Instruments to produce it and pay 
royalties, so please send orders direct. 


XMAS NEWSLETTER 


Next month will be the last newsletter before Xmas, therefore, i 
be thicker than usual, with a lot more programs being published 
that you will all have something to do over Xmas. 

We have a couple of programs that are about 5 or 
can eith'er type them in, or purchase them from u 


pages long - 
E^n = 


t will 
so tha 

you 


NEW MEMBER 


We welcome the following family to our Group - 
SPICK f am i 1 y , 1 1 Racecourse Par ade , Avonda 1 e 


Our next meeting is on Monday the 11th of November, 1985, at 7.30 p.m. 
We look forward to seeing you all. 


- No 1 a Hugg i ns 


CONSTITUTION for AUCKLAND COLOUR GENIE USERS GROUP 


1. There shall be a non-profit making organisation to be known as 
THE AUCKLAND COLOUR GENIE USERS GROUP afterwards referred to as the 
organ i sat i on . 


2. The aims of the organisation will be the sharing of knowledge on 
the Colour Genie computer, distribution of software and hardware for 
the Colour Genie, and such other activities as the members decide. 


3. An Annual General Meeting will be held in March each year, and 
Special General Meetings may be held with three weeks notice in 
writing. Normal meetings shall be held as the committee determine. 


4. There will be three classes of members - full members (which will 
include all members of a family group), country members (where the 
member 1 ives outside the greater Auckland area) and student members 
(where the member is engaged in full-time study). 


5. A quorum shall consist of 30% of the total of full members and 
student members. 


6. A committee shall be elected at the Annual General Meeting and 
must contain a Chairman, Secretary /Treasurer , and between three and 
six other members. The Chairman and Secretary /Treasurer shall be 
elected by the meeting. 


7. Non-committee members may be appointed to fulfill other tasks as 
the committee shall decide. 


8. The committee may be given power to co-opt members to the 
committee by a vote at a normal meeting of the club if a quorum is 
present with a 75% majority vote. 


9. The organisation shall operate such bank accounts as the 
committee shall determine. All accounts must have at least three 
signatories, with any two to sign. 


10. The financial records of the organisation will be available for 
inspection by members at reasonable notice. 


11. The financial records will be audited before the Annual General 
Meeting for presentation at the meeting and a financial statement will 
be distributed to all members. 
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12. Subscriptions will be set by the members either at the Annual 
General Meeting, or at a Special General Meeting. 


13. In the event of an Annual General Meet i ng or a Sp ec i a 1 Gener a 1 
Meeting voting to wind-up the organisation, the realisable assets 
will pass to a similar computer-based non-profit organisation which 
will be decided by the meeting. 


14. The policy of the organisation with regard to software sales will 
be that the only warranty is on the quality of the medium used and the 
qual i ty of the recording. 


15. Any changes to this constitution may be made at an Annual General 
Meeting or a Special General Meeting by a majority vote of the people 
present . 


16. The balance date shall be the 31st of January. 


AUCKLAND COLOUR GENIE USERS GROUP , 


STATEMENT OF ACCOUNT - 1 MARCH 1984 TO 1 OCTOBER 1985 


Deposits : - 


Subscriptions paid to us over 2 years 
Sales of software and hardware 
Commission on Genie Sale at Computer Show 
Ad placed in our nevssletter 


3150.00 
1 5435 .81 

95.00 

10.00 


$18690 .81 


Less Payments 


Administration Costs 


Postage 

944 . 80 


Photocopying ( Nev^sletters , 

Gum magazines , Technical 

Manual, 40p booklets , pro- 
gram instructions, etc) 

2 2 0 5.92 


Stationery 

307 . 02 


Bank Fees 

8 . 50 


Rent 

240 . 00 


Subscription to UK Group 

76.39 


Ad in Herald 

20.15 


Xmas party drinks - Dec 1'^04 

104.60 


Tea , cof f ee , biscui ts at meetings 

130.00 

- $4037.38 


Hardware and Software Purchased 


Mark Langdon - data stabilisers, 
rom boards , pr inter interfaces, 


cassette relay boards, etc 

2272 .62 


Roms (resold as h.ardware) 

216.82 


Joysticks (resold as hardware) 

648.00 


Printer interfaces ( resold ) 

201.60 


Euromatic Recorders (resold) 

100.00 


Tapes, labels, etc 

Software masters ( includes bank 

3009.74 


exchange fees) 

3045 . 02 


Royalties paid to English 



software houses to date 

2276.09 

- $1 1769.89 

Assets Owned By Group 

Green Screen Monitor 

200.00 


Genie S recorder (held by Nob^) 

420.00 


2 Genies in working order (Andy) 

600.00 


1 Disk Drive Interface 

350 ,00 


1 Disk Drive unit 

4 EACA recorders (in working 

300.00 


order ) 

200.00 


plus miscel 1 anec'a.- ^jpa.re pai'tc 

0.00 

- $ 2070.00 

= Money held in 2 bank accoun'-.c 


$ 813.54 


1 

REM 

XX 

COST ANALYSIS PROGRAM 

XX 

2 

REM 

XX 

PRODUCT OF EACA INTERNATIONAL LTD. 

XX 

3 

REM 

• XX 

ALL RIGHTS RESERVED. 

XX 

5 

CLS 




10 

i PRINT " 

X COST ANALYSIS X" 



20 PRINT :GOSUB 500 

30 CLS; INPUT "ENTER THE TOTAL FIXED COST( OL»ERHEAD COST > VALUE " ;F 

31 IF F <= 0 GOTO 30 

40 INPUT " ENTER THE VARIATE COST PER UNIT " ;V 

41 IF V <= 0.01 GOTO 40 

50 INPUT " ENTER THE PRODUCTION OR SALE QUANTITY PER MONTH " jN 

51 IF N < 1 GOTO 50 

60 C=F+VXN 

61 PRINT :PRINT " X X X X X X" 

70 PRINTiPRINT "THE TOTAL COST OF "jNj" UNITS IS *“;C 
80 PRINT 

90 PRINT "THE AVERAGE COST PER UNIT IS ; C/N 
91' PRINTiPRINT " X X X X X X" 

100 PRINTllNPUT "DO YOU NEED MORE ANALYSIS (YES/NO) " jA* 

110 IF A*=>"Y" OR A«="YES" GOTO 140 
120 IF A^"N* OR A^=*NO" GOTO 318 
130 GOTO 100 

140 PRINTtINPUT " ENTER THE SELLING PRICE PER UNIT DESIRED " jU 
145 IF U<=0.01 GOTO 140 
150 CLS:R=NXU 

160 PRINTiPRINT " X X X X X X" 

170 PRINT "THE TOTAL REVENUE OF ";N5“ UNITS AT ^"jU 

180 PRINT " IS *" ;R 

181 PP=<R-C)/CX 100 

182 IF PP<0 THEN 185 

183- PRINT "THAT IS ";PP;"X PROFIT." 

184 GOTO 200 

185 PRINT "THAT IS "5ABS<PP)i"X LOSS." 

200 IF C<R GOTO 250 

210 B=Ni IF C=R GOTO 270 

220 PRINTiPRINT "THE BREAKEVEN POINT CANNOT BE ACHIEVED" 

230 PRINT "IF ALL THE INFORMATION GIVEN ARE CORRECT." 

240 GOTO 310 
250 B=INT<F/(U-V>) 

260 IF B=0 THEN B=1 

261 C=BXU 

270 PRINTiPRINT " X X X X X X" 

280 PRINT "THE BREAKEVEN POINT IS ACHIEVED WHEN ";B;" UNITS" 

285 PRINT " ARE PRODUCED OR SOLD." 

290 PRINT "THE BREAKEVEN AMOUNT IS *";C 
300 PRINTiPRINT" X X X X X X" 

310 INPUT "DO YOU LIKE TO TRY AGAIN <YES/NO) " ;A$ 

320 IF A^"Y" OR A*="YES" GOTO 30 
330 IF A$="N" OR A»="NO" GOTO 350 
340 GOTO 310 
350 END 

500 PRINT I INPUT "DO YOU NEED INSTRUCTIONS (YES/NO) " ;A* 

510 IF A$="YES" OR A$="Y" GOTO 540 
520 IF A*="NO" OR A*="N" RETURN 
530 GOTO 500 

540 CLS I PRINT "THIS PROGRAM CALCULATES THE BREAKEVEN POINT OF CERTAIN PR 
ODUCT . " 

550 PRINT "THE BREAKEVEN POINT IS LOCATED WHERE THE TOTAL REVENUE CAN" 
560 PRINT "JUST COVER THE TOTAL EXPENSE." 

570 PRINT "THE USER IS EXPECTED TO INPUT THE FOLLOWING DATAi" 

580 PRINT " 1. THE OVERHEAD COST OF THE COMPANY." 

590 PRINT " 2. THE VARIABLE COST PER UNIT." 

600 PRINT " 3. THE MAXIMUM PRODUCTION QUANTITY PER MONTH." 

610 PRINT; INPUT "PRESS THE NEWLINE KEY WHEN READY " ;A* 

620 RETURN 


2000 PRINT ; PRINT 
2010 IF U = 1 GOTO 2110 
2020 IF Q = 1 GOTO 2200 
2030 PRINT 

2040 INPUT "DO YOU WANT TO ADD MORE ENTRIES <Y/N)‘'5 
2050 IF LEFT«(Y*, 1) = "Y" GOTO 560 

2060 SI =S1 + S : B1 = B1 + B : Cl = Cl + C : D1 = D1 + D : El = El + E : FI s F 

1 + F : G1 = G1 + G ; HI = HI + H 

2070 II = 11 + I : J1 = J1 + J : K1 = K1 + K : LI = LI + L : Ml = Ml + M : PI = 

PI + p : Ri = Ri + R : wi = wi + 1 
2080 PRINT : INPUT "ADDITIONAL PAGES THIS MONTH (Y/N)" ; W* 

2090 IF LEFTS (W«, 1) = "Y" GOTO 500 

2100 U = 1 : GOTO 1520 


2110 

S2 = S2 + 

SI : B2 = B2 + 

B1 : 

C2 = C2 + 

Cl : 

D2 = D2 

+ D1 

: E2 = 

E2 + El 

F2 = 

F2 + FI 

: G2 => G2 + 61 

: H2 

= H2 + HI 






2120 

12 « 12 + 

11 : J2 = J2 + 

Ji ; 

K2 = K2 + 

Ki : 

L2 = L2 

+ LI 

:M2 = 

MZ + Ml 

P2 = 

P2 + PI : 

R2 = R2 + RI : 

W2 = 

W2 + WI 







2130 Q = 1 

2140 PRINT ; INPUT "*** GRAND TOTALS *** (Y/N)"; AS 
2150 IF LEFTS(AS, 1) = "Y" GOTO 2170 
2160 GOTO 2200 

2170 GOSUB 5000 ; PRINT ! PRINT "*** GRAND TOTALS *** BEING PRINTED...." 

2180 PRINT : P = O 

2190 LPRINT " " : LPRINT " " ! LPRINT "*■*•* GRAND TOTALS ***" : GOTO 1540 
2200 PRINT : INPUT "ANOTHER MONTH (Y/N)"| RS 
2210 IF LEFTS (RS, 1) « "Y" GOTO 500 
2220 CLS : PRINT : PRINT ; PRINT : PRINT 

2230 PRINT " END OF PROGRAM PRINT : PRINT " SEE YOU AGAIN SOMETIMi. . 

n 

2240 PRINT ; PRINT ! PRINT : PRINT: PRINT: PRINT: PRINT: PRINT 
2250 END 

3000 REM * ENTER COLOUMN HEADINGS (14 CHARACTERS EACH, MAX.) * 

3010 FOR Z = 1 TO 16 

3020 READ AS ( Z ) : PRINT TAB ( 10 )" COLUMN" ; AS ( Z ) 

3030 NEXT Z 

3040 PRINT : INPUT "***** PRESS RETURN TO CONTINUE..."; AS 
3050 GOTO 400 

3060 DATA 1-TOTAL AMOUNT, 2-PURCHASES, 3-DRAWINGS, 4-DEBTORS 

3070 DATA 5-PLANT/EQUIP, 6-VEHICLE EXPS, 7-WAGES, 3-TOOLS 

3080 DATA 9-SAFTEY EQUIP, 1 O-CREDITORS , 1 1 -SALES, 12-CAPI TAL 

3090 DATA13-FREIGHT, 14-OFFICE EXPS, 15-OPERATING EXPS, 16-PAYE 

4000 PRINT: PRINT ; PRINT " ENTER PREVIOUS *** GRAND TOTALS *** ;" 

4010 PRINT 


4020 

PRINT 

AS ( 1 ) ; ; 

INPUT " 

s 

• 

TOTAL" ; 

S2 

4030 

PRINT 

AS ( 2 ) ; : 

INPUT " 

• 

e 

TOTAL" ; 

B2 

4040 

PRINT 

AS ( 3 ) ; ; 

INPUT " 

e 

■ 

TOTAL" ; 

C2 

4050 

PRINT 

AS ( 4 ) ; : 

INPUT " 

■ 

■ 

TOTAL" ; 

D2 

4060 

PRINT 

AS (5); : 

INPUT " 

» 

TOTAL" ; 

E2 

4070 

PRINT 

AS (6); : 

INPUT " 

t 

TOTAL" ; 

F2 

4080 

PRINT 

AS ( 7 ) ; : 

INPUT " 

c 

TOTAL" ; 

G2 

4090 

PRINT 

AS(8) ; : 

INPUT " 

• 

• 

TOTAL" ; 

H2 

4100 

PRINT 

AS(9); : 

INPUT " 

• 

TOTAL" ; 

12 

4110 

PRINT 

AS( 10) ; 

: INPUT 

n 

: TOTAL" 

; J2 

4120 

PRINT 

AS ( 1 1 ) 1 

: INPUT 

il 

; TOTAL" 

; K2 

4130 

PRINT 

AS( 12) ; 

: INPUT 

II 

: TOTAL" 

; L2 

4140 

PRINT 

AS(13) ; 

: INPUT 

H 

: TOTAL" 

I M2 

4150 

PRINT 

AS( 14) ; 

: INP^U" 

II 

: TOTAL" 

; P2 

4160 

PRINT 

AS( 15) ; 

: INPUT 

II 

: TOTAL" 

; R2 

4170 

PRINT 

AS(16) ; 

; INPUT 

II 

: TOTAL" 

; W2 

4180 

Q = 1 

: GOTO 2170 





5000 REM * LINE 5050 ADVANCES PRINTER TO NEXT PAGE * 

5010 REM * ASSUMES 66 LINES PER PAGE MAXIMUM * 

5020 PL = PEEK«16A25) 

5030 IF PL > 58 GOTO 5050 
50A0 RETURN 

5050 FOR PE = 1 TO (70 - PL) : LPRINT " " : NEXT PE : POKE 16A35, 1 : RETURN 

7000 CLS : REM * INSTRUCTIONS WHEN REQUESTED *■ 

7010 PRINT : PRINT " THIS PROGRAM, USED WITH YOUR PRINTER, PRODUCES AN INCOME" 

9 

7020 PRINT " OR EXPENSE LEDGER FOR HOME OR SMALL BUSINESS USE. YOU MUST" 

7030 PRINT "HAVE AN 80 COLUMN PRINTER, BUT NO DISK IS REQUIRED...." 

70A0. PRINT : PRINT " THE PROGRAM KEEPS TRACK OF 16 ’COLUMNS’. COLUMN 1 

IS" ! 

7050 PRINT " ALWAYS THE AMOUNT COLUMNS 2-16 ARE THE CATEGORIES THIS AMOUNT"! 
7060 PRINT " MIGHT FALL INTO. COLUMN HEADINGS ARE ASSIGNED IN DATA LINES"! 

7070 PRINT " 3060-3090, WHICH YOU CAN ENTER FROM THE KEYBOARD BEFORE"! 

7080 PRINT " ACTUALLY USING THE PROGRAM. THE HEADINGS MAY BE BLANK OR THEY"! 

7090 PRINT " MAY BE ALREADY ASSIGNED, DEPENDS WHO HAS ALREADY BEEN USING 

THE PROGRAM " 

7100 PRINT : INPUT "PRESS RETURN TO CONTINUE "! A« : CLS 

7110 PRINT : PRINT "ENTER THE FOLLOWING FOR EACH AMOUNT: 

7120 PRINT " TO WHOM - PURPOSE (RETURN) 

71*25 PRINT" DATE (DD/MM/YY) .(COMMA) 

7130 PRINT " CHEQUE « (OR ’CASH’ FOR CASH >..( COMMA ) 

71A0 PRINT " AMOUNT (XXXXX.XX) (RETURN) 

7160 PRINT " COLUMN « (2 - 16 ONLY!!) (RETURN) 

7170 PRINT : PRINT "ENTER .... TOTAL , 00 , 0 FOR PAGE TOTALS" 

7180 PRINT : INPUT "PRESS RETURN TO CONTINUE "i A« : CLS 

7190 PRINT "AS YOU CONFIRM EACH BLOCK OF INFORMATION REQUESTED BY THE "i 
7200 PRINT "PROGRAM, A SINGLE LINE CONTAINING THIS INFORMATION IS PRINTED" 

7210 PRINT "ON STANDARD 8-1/2 INCH WIDE PAPER. PRINTER LINE NUMBERS ARE"! 

7220 PRINT " SHOWN FOR EACH ENTRY SO YOU KNOW WHERE YOU ARE ON THE PRINTED"} 

7230 PRINT " PAGE. WHEN YOU REQUEST TOTALS, EACH COLUMN HEADING WILL BE"! 

7240 PRINT "PRINTED WITH THE TOTAL FOR EACH COLUMN FOR THAT PAGE. YOU CAN"! 

7250 PRINT " THEN REQUEST ADDITIONAL PAGES. IF NOT, MONTHLY TOTALS WILL BE"} 

7260 PRINT " PRINTED. YOU THEN CAN DO ANOTHER MONTH, OR PRINT GRAND TOTALS"} 

7270 PRINT " OR EXIT THE PROGRAM 

7280 PRINT : PRINT " THE FORMAT ALLOWS TOTALS TO" 

7285 PRINTTAB ( 11 ) "*99,999, 999.99" 

7290 PRINT ; PRINT " ** CRASH RECOVERY : TYPE.... GdT0600 ....AND RETURN" 

7300 PRINT : INPUT "PRESS RETURN TO CONTINUE "} A* ; GOTO 300 

lOOOO CSAVE "1" : OUT 255, 4 : FOR I = 1 TO 3000 : NEXT ‘. CSAVE "1" 



0 GOSUB 5 0 0 0 ' .t * * * :t; * 1 1 1 1 * 1 1 

t PULLEY MAN t 
t. MADE BY 

* MURRAY * 

* PH 82208 * TAURANGA * 

*******:♦;:♦:***** 

1 GOSUB8000 

2 GOSUB4500 

3 GOSUB4555 

4 COLOURl 1 :PRINT®723 , "SCORE" SC iCOLOURl 2 :PRINT®740 , "HI SCORE" ;HI 

5 POKEQ, 132:POKEW, 131 : POKEQ+4..HACOO , 1 : POKEW+4.HACOO , 3 

6 GOT0600 

400 G=G+1 : IFG=9THENPOKEE,32:G=0:GOTO750 
410 E=E+1 

420 POKEE, 130:POKEE-1 ,32 
500 A=PEEK( -1984 ) 

510 IFAAND8THENQ=Q-40 : W = W-40 : I FQ= 1 7558THENQ=Q+40 I W = W + 40ELSEPOKEW + 40 , 32 : POKEQ , i :-\7. 

: POKEW ,131: POKEQ+5.HACOO , 1 : POKEW+4<HACOO , 3 

520 IFAANDl 6THENQ=Q+40 : W=W+40 : IFQ= 1 8078THENQ=Q-4 0 : W=W-40ELSEPOKEQ-40 , 225 { POKEC , 1 
32 : POKEW, 131 : POKEQ-40+4..HAC00 , 6 : POKEQ+4..HACOO , 1 : POKEW+4,HACOO , 3 

530 IFAAND123THENPLAY<3,7,3, 15) : PLAY ( 3 , 7 , 3 , 0 ) :F=Q-1 : F0RT= 1 T026 : F=F- 1 ; POKEF , 134 :P 
OKEF+1 ,32; IFF=ETHENPLAY(2,4,9, 15) : PLAY ( 2 , 4 , 9 , 0 ) : GQT0700ELSEIFPEEK ( F- 1 ) = 1 33THENPL 
AY ( 3 , 5 , 1 1 , 1 5 ) ; PLAY (3,5,11,0) : POKEF , 32 : GOTO550ELSENEXT : POKEF . 32 
550 GOT0400 

600 G=0:R=RND<3) : I FR= 1 THENE= 1 7570 : GOT0400 
610 IFR=2THENE=17890 :GOT0400 
620 IFR=3THENE=17730 ;GOT0400 
630 GOT0600 

700 POKEF, 32 : SC=SC + 20 : PRINT@723-, "SCORE" ; SO : GOT0600 

750 IFR=lTHENF0RT=5iT021 1STEP40 : COLOUR4 ; PR I NT@T , S 

" : NEXT : POKEE, 32 : E=53 :FORT=21 1T051 STEP-40 : C0L0UR4 : PRINT0T, :PRINT®T + 4 0 , " 

" :NEXT;GOT0780 

760 IFR=3THENF0RT=51T0371STEP40 ; C0L0UR4 iPRINT^T, :COLOUR3 ;PRINT®T-40, " I 

" :NEXT ; POKEE, 32 :E=54 : FORT=37 1 T05 1 STEP-40 ; COLOUR4 l PRINT®T, :PRINT®T+40 , " 

" :NEXT:GOT0780 

770 IFR=2THENF0RT = 51T0531STEP40 I C0LPUR4 :PRINT®T, — : COLOUR3 : PRINT®T-40 , " I 

" : NEXT: POKEE, 32 :E=54 :F0RT=531T05 1 STEP-40 :COLOUR4 : PRINT®T, — :PRINT®T + 40 , " 

" :NEXT;GOT0780 

780 PRINT@E-40 ,CHR$ ( 130) ; FORT= 1 6TOS ; PR I NT@E-40 , CHRi (32 ) ;COLOURl : PR I NT@T , CHR$ ( 130 
) :PRINT®T-1 ,CHRi (32) :NEXT;PRINT®T,CHR$ (32) ;S = S+1 : PRINT®S+40 ,CHR$ ( 133) : IFS034THE 
NPRINT®T-1 ,CHR» ( 32) : GOTO600ELSET000 
800 GOT0600 

4499 G0T04499 

4500 CLS ; COLOUR5 : PRINT®680 . " 


4505 COLOUR9 :FORT=638TO3aSTEP-40 ;PRINT@T, "H B" : NEXT 

4506 PRINT@638, "B" ;PRINT@678 , "B" 

4507 C0L0UR6 ; FORT=200T02 1 0 ; PR I MT®T , CHR$ (133) : NEXT : FORT=360TO370 ; PR I NT@T , CHRi ( 133 
) ;NEXT;FORT=520T0530 :PRINT®T,CHR$ ( 133) ; NEXT : PRINT®1 50 , 


4508 COLOUR3;PRINT®13, " | " : COLOUR4 : PR I NT@5 1 , 

$ ( 135) :PRINT®75,CHR$ ( 135 ) : PRINT® 1 1 5 , CHRI ( 135) : 
33) : NEXT 
4553 RETURN 

Q= 1 7598 :W= 17638 ;E= 18020 ;S=29 :SC=0 :MM=737 
RETURN 

; RE ADD ; POKE- 30 6 5 +T , D : NEXT 


4555 

4999 

5000 F0RT=1T056 

5001 RETURN 
5010 DATA60 , 126 
171 , 129,255,255 
5,0,0,0,255, 129 
4,97, 121 ,32,74, 


24 

> A. “ ? 

, 129 
1 1 1 


; COLOUR4 ; COLOUR2 ; PR I NT®35 , CHR 
F0RT=56T069 : COLOURl ; PRINT®T,CHR$ ( 1 


,255,126,62,0,0,24,153,129 

24,0,248,24,24,24,24,255,0: 

,129,255,129,129,129,77,97 


255,24,36, 102, 195,255 
0,255,255,255,255, 255 
100,101,32,66, 121 ,32, 


, 129 

0 , 0 : 


171 
15 , ; 


77,117,114 


129 , 
55 , 1 
1 1 


5 ( 


5011 

7000 


DATAl 10,101,115 

COLOUR 1 : FORT= 1 TO 1 0 0 0 : NEXT ; CLS I PR I NT@0 
IPRINT^SOO, » 



7001 COLOURS ; PR I NT@90, '■ 

7002 COLOUR4 ;PRINT@130, 

7003 COLOUR 1 I PRINT®! 70, 

7004 COLOUR4 :PRINT®210, 

7005 COLOURS ; PR I NT@250 , 

7006 COLOURS ; PR I NT®330 , 

7007 COLOUR4 ;PRINT®370, 

7008 COLOURl :PRINT@410, 

7009 COLOUR4 :PRINT®450, 

7010 COLOURS; PR I NT@490, 

7011 GOSUBIOOOO 
7015 GOTO7025 

7020 COLOURl ;PRINT®565, "Hi 

4, "Your Score" : COLOUR3 : PRI NT@624 , " 

: PRINT®655 , " " 

7022 GOT07030 

7025 IFSC<HITHENGOT07020 

7027 IFSC>HITHENHI=SC:GOT07100 

7029 GOT07020 

7030 COLOURl :PRINT®644, ;PRINT@663, ' 

7040 PRINT@721 , "PLEASE PRESS (S) KEY TO 

7041 COLOUR3 :PRINT®761 , " 

7050 I $=INKEY$ ; IFI i=" "THEN7050 

7051 RESTORE : GOSUBO 

7100 COLOURS :PRINT®640, " 

INPUTE$ 

7105 PRINT®600, " 


Score" ; COLOURS :PRINT®605, '■ ’■ :COLOUR1 !PRINT®5a 

" : COLOURl :PRINT@615, " " ;NAi : COLOURS 


" SC 
START 


PROGRAM" 


ICOLOURI : PRINT@600 , "Enter Your Name" 


7110 
7120 
8000 
8010 
00, "I 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
9000 
9010 
9020 
9050 
9055 
9060 
9070 


NA$=LEFT$ (E$ ,7) 

GOT07020 

CLS 

CLS : COLOUR 1 : PR I NT@0 


:PRINT®8 


COLOURS : PR I NT® 86 
COLOUR4 ;PRINT®126 
COLOURl : PR I NT® 166 
C0L0UR4 ; PRINT®206 
COLOURS ; PRINT@246 
COLOURS ; PR I NT®333 
COLOUR4 ; PRINT®373 
COLOURl :PRINT®413 
COLOUR4 :PRINT@453 
COLOURS :PRINT@493 
GOSUBIOOOO 
COLOURl :PRINT®570 
COLOURS 

PRINT®610 , " 

COLOURl ; PRINT®681 : 
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"Made By Murray Jones' 


"Please Press Any Key To Start Pr ogr am " : COLOURS : PR I NT@72 1 


9080 I $=INKEY$ ; IFI $=" "GOT09080 
9090 G0T02 

9999 G0T09999 

10000 TIME = TIME+1 I I FTI ME=4THENT I ME = 0 ; GOTO 1 00 1 OELSEFORT= 1 T030 : PLAY ( 1 ,5,7, 15) ; NEXT 
: FORT=1T030 I PLAY( 1 ,5,6, 15) ; NEXT I FORT= 1 T030 ; PLAY ( 1 ,5,5, 15) ; NEXT : GOTO 1 0000 

10010 FORT=1T030 ; PLAY ( 1,5,4,15) I NEXT : FORT= 1 T030 : PLAY ( 1,5,3,15) ! NEXT : FORT= 1 T060 :P 
LAY (1,5,2,15) : NEXT ; F0RT= 1T075 ; PLAY (1,5,3,15) I NEXT ; PLAY ( 1 , 5 , 0 , 0 ) 

10020 TIME=0 ; RETURN 


5 ’ CRYSTAL PLATES 

6 ’ADAPTED FROM VZZOO FOR GENIE by Ron Hart 1983. 
10 FCLS 

20 FGR 
35 RANDOM 

40 X=20+RND ( 120) : Y=20+RND ( 60 ) :LT=RND(25) 

42 1 = 1 

50 FORX=XTOX+I 
60 PLOTXjY 
70 NEXTX 
80 FORY=YTOY+I 
90 PLOTX,Y 
100 NEXTY 

110 I=I+l; IFI>LTTHEN40 
120 F0RX=XT0X-ISTEP-1 
130 PLOTX,Y 
140 NEXTX 

150 F0RY=YT0Y-ISTEP-1 
160 PLOTX.Y 
170 NEXTY 

180 I=I+l: IFI>LTTHEN40 
185 FCOLOUR (RND (3) +1 ) 

190 G0T050 


5 CLS: LGR;C0L0UR15; PRINT'’ K’ SCOPE 1 by Ron Hart . . . 1985 PR INT : PRINT " Exper imen t w 

ith lines 20 and 30 -for different effects" ’ 

6 C0L0UR7: PRINT: PRINT"PRESS ANY KEY TO GO" 

7 CALL0049 

10 CLS: FCLS: FGR: FC0L0UR4 
20 FORK=40TOOSTEP-4 
30 F0RJ=1T040 
40 I=K+J 

50 FC0L0LIR3: PLOTK, I ; PLOT I , J:PLOTI , K: PLOTJ, I : PL0T80-K, I : PL0T80- 1 , K .* PL0T80- 1 , J : I 'LO 
T80-J, I:PL0T80+K,I:PL0T80+I,K:PL0T80+I, J:PL0T80+J, I 

60 FCOLOUR (4) ; PLOTK, 80-1 : PL0T80-K , 80-1 : PLOT I , 80- J : PL0T8O-I , 80- J : PLOTI , 80-K: PLOTS 
0-I,80-K:PL0TJ,80-I:PL0T80-J,80-I 

70 FC0L0UR4:PL0T80+K, 80-1 : PL0T80+I , 80- J : PLOT30+I , 80-K : PL0T8O+ J , 80-1 

80 FC0L0UR3:PL0T159-K, I : PLOTI 59- 1 , K : PLOT 1 59- 1 , J : PLOT 1 59- J , I : FC0L0UR4 : PL0T159-K ^ 8 

0- 1 : PLOTI 59- 1 , 80-K : PLOTI 59-1 , 80- J : PLOT 159- J , 80-1 

600 NEXTJ:NEXTK 

800 G0T0800 



THE FLY I NO WALLOONS 


TRANSLATED FROM THE TRS-80 PROGRAMME BY RUGG AND FELDMAN 
FOR COLOUR GENIE, BY KEITH Me GILL 


ISO CLS:CHAR4 

190 CLEAR 500:D=40:E=80 

200 N$=CHR3; (. 32 ) ; K$=CHR$ C 2 1 7 ) : K 1 $=CHR$ (211); l<2$=CHR$ ( 202 ) 

2 1 0 B$=K 1 $+CHR$ i; 1 28 ) +K2$+CHP.$ ( 1 29 ) +l( 1 $ : T$=K$+CI-IP$ ( 1 70 ) +K$ 
220 C$=CHR$ ( 1 30 ) +CHF:$ ( 1 46 ) +N$+CHR$ ( 1 28 ) +CHRf (131 ) 

230 L$=STRING$(3, 180) : M$=STRING$ (3, 217) 

240 U$=STRING$(;3, 211); S$=N$+N$: A$=S$+CHR$(. 170) : W$=L t+M'5+Ll$ 
250 D$=S$+CHR$ C 1 70 ) +STE I NG$ < 1 5 , N$ ) +W$ 

260 E$=B$+S$+3$+L$+T$+U$: Y$=S$+S$+N'l;: Y1 $=STPINGT ( 8,32) 

270 Z $=CHR$ ( 1 82) +CHF:$ ( 1 30 ) +K2$+CHR$ (131) +CHP$ ( 1 90 ) 

280 F$=CHR$ ( 1 30 ) +CHR$ ( 1 62 ) +CHR$ ( 1 80 ) 4 CHP* c 209 ) +K$ 

290 F$=F$+K$+U$+S$+Z$: G$=STRING$ ( IS, N$ ) +Wt 
320 J$=W$+3t+CHR$( 1S2)+CHR$( 130) +K24+CHP'4i ( 1 70) 

330 J$=J$+CHR$(:i90) ;H$=STRIMQ$(9,N$)+L$+T$+Ui 
360 D 1 $=U$+M$+L$+STR I NG$ ( 1 5 , N$ ) +CHR$ ( 1 70 ) 

370 E 1 $=STR I NG$ ( 9 , N$ ) +U$+T$+L$+S$+ST +B$ 

380 F1$=STRING$ (11, N$) +Z*+S$+IJ$+K$+K$ 

390 F 1 $=F 1 $+CHR$ ( 209 ) +CHR$ ( 1 80 ) +CHR4 ' 1 72 ) +CHP$ ' 1 3 1 ) 

400 V 1 $=CHR$ (211) +K$+CHR$ ( 1 80 ) +CHPT' (182 > +CHP'£ c l SO ) 

410 yi$=Vl$+CHR$( 170) ; V2$=N$+CHR$( inO)+K$+CHR$( 128) 

420 V2$=V2$+CHR$ ( 209 ) +K2$+K 1 $+K 1 $ 

430 V3$=CHR$ ( 135) +CHR$ ( 1 90) +N$+CHR$ ( 182) +CHRi ( 1 35) 

440 V4$=N$+CHR$ (128) +CHR$ ( 1 70 ) +CHR$ (151) 

450 y5$=Kl$+Kl$+K2$+Kl$+Kl$ 

470 GOSUB 1300;G0SUB 1400:G0SUB 1800 

500 CLS:L=682: GOSUB 900: GOSUB 1800: FOR H=:680 TO 6R2:CLS 
510 GOSUB 900; GOSUB 910: NEXT; CLS; GOSUB 920: GOSUB ISnn 
530 FOP. H=146 TO 159: PRINTOH, 11$: NEXT; H=.35: GOSUB 910 
540 GOSUB 1800; GOSUB 1200; H=G3; GOSUB 910 
590 FOR J=1 TO 4 

600 H=63:F0R K=1 TO 8; GOSUB 940; I l=H+D: GOSUB 910 

610 NEXT: H=362: CLS; G0SUB930: GOSUB 910; FOR K=1 TO 8 

620 GOSUB 940: H=H-D: GOSUB 910; NEXT: FOR K>1 TO 8:G0GIJB -HO 

630 H=H+D;GOSUB 910: NEXT; H=383: CLS: GOSUB 920;G0SUB ''tlO 

640 FOR K=1 TO 8: GOSUB 940; H=H-D: GOSUB 910: NEXT; NEXT 

700 FOR K=1 TO 3: GOSUB 940: H=H+1 ; GOSUB' 910; NEXT 

710 FOR K=1 TO 8; GOSUB 940: H=H+D: GDSUB 910: NEXT 

72(1 GOSUB 940; H=L-23: GOSUB 950; GOSUB 970; H=H+4i ; GOSUB 960 

800 GOSUB 1800; CLS 

810 PRINT@292,"F I N I S":GOSUB 1S00;CLS:END 
900 PRINT@L,G$; :PRINT@L+D,H$: :PP.IMT@L+E, J$: : RETURN 
910 PRINT@H,A$; :PRINTiH+D,B$; ;PRINT@H+E,C$: :PETUPN 
920 PR I NT©L , D$ ; ; PR I NT@L+D , E$ : ; PR I NTiL+E , F$ : ; RETURN 
930 PRINT@L,D1$; ;PRINT@L+D,E1$: ;PRINT@L+E,F1$: ; RETURN 
940 PRINTQH, Y$; :PRINT@H+D, Y$: ; PRINT@H+E, Y$: ; RETURN 
950 PRINT@H,V1$; ;PRINT@H+D,V2$; : PRINT@H+E, Kl RETURN 
96u PRINT@H,V3$; ; PRINT@H+D, V4$; : RRINT@H+E, V5$: : RETURN 
970 PRINTSH,Y1$: ;PRINT@H+D,yi$; : PRINT@H+E, Yl$; :RETUPN 
1200 FOR H=36 TO 29 STEP-1; GOSUB 910:GnS!JB ■)4n:NEXT' 

1210 GOSUB 910: GOSUB 1800: FOR J=1 TO 3: GOSUB 94r):H=H-l 
122U GOSUB 910:NEXT:G0SUB 1300:F0R J=1 TO 6:G0SUB 940:H=H+1 
1230 GOSUBSIO: NEXT: FOR K=1 TO 500; NEXT --n n i 

l24u FOR J=1 TO 8;PRINT§H,S$+N$: ;FOR K=1 TO 5n:NEXT 
1250 PRINT@H, A$; :FOR K=1 TO 50: fexT: NEXT; GOSUB 1800 
126U FOR J=1 TO 8; GOSUB 940: H=H-1 : GOSUB 910: NEXT: RETURN 
CLS; H=414; U$=CHR$ (209) 

PRINTQH," CG THEATRE" ; PR I NT@H+E, " PROUDLY" 

■ PRESENTS" 

270: PRINT@J,U$: NEXT 
690 STEPD; PRINTdJ, K2$: : NEXT 
710 STEPD:PRINT@J,K2$; :NEXT 
137(1 FOR Jl=b'::)0 T0710;PRINT(3J1,U$: :NEXT 
1380 GOSUB 1BOO:FOR J=0 TO 13: PRINT@H+E+J, ; 

1390 FOR K=1 TO 90; NEXT: NEXT: GOSUB 1300:PETURf4 
140(1 M$="F L Y I N G":U$="W ALL N S" : W$=STRING$ ( 17, 32': 
L$="T H E":;CLS:FOR J=246 TO 208 3TEP-2 
PRINTgJ, W$;GOSUB 1700: PR INTO J, L$: NEXT 
FOR J=446 TO 412 STEP~2; PRIMTeJ, NT; : GGSUB 1 70(i: PRINT0J, 
NEXT: FOR J=639 T0620 STEP-2: PR INTO J, W$; GO.SUB 1700 
PRINTS!, U$: N$: NEXT: GOSUB 1800: FDR J=2S TO 628 GTEPD 
PRINTS!, "0''; : GOSUB 1700:PRINTS!, Nt>; : NEXT; PRINTSF.29, "O"- 
FDR !=30 TO 630 STEPD: PRINTS!. GOPIJB 1700 ' 

PRINTS!,N$,- : NEXT: PR INTS631, "0": : RETURN 
FOR K=1 TO 12; NEXT: RETURN 
FOR 1=1 TO 1400: NEXT: RETURN 


1300 

1310 

1320 

1330 

1350 

1360 


1410 
1 420 
1430 
1 440 
1450 
1 460 
1470 
1480 
1700 
1 800 


PRINTSH+E+E, 
FOR !=250 TO 
FOR !=250 TO 
FOR !=270 TO 


M$ 




100 

110 

120 

140 

150 

l&O 

170 

190 

200 

205 

210 

230 

240 

250 

260 

270 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

500 

530 

535 

540 

550 

560 

570 

580 

590 

600 

650 

660 

670 

700 

710 

720 

730 

740 

750 

760 

770 

800 

810 

820 

930 

840 

850 

860 

870 

880 


CLS 

CHAF:4 

CLEAR 250: RANDOM: DEFINT W 

B$=CHR$ C 1 82) : C$=CHR$ i 1 52 ) ; M$=CHR$ (171) 

F3$=B$+STRINB$(25, 181 )+M$ 

D1$=B$+STRING$(7, 181 ) +M$: D2$=B$+STRING$ (7, 32)+M$ 

D3$=B$+STRING$(7, 180) +M$ 

F1$=B$+STRING$(25, 1S0)+M$: : F2$=B$+STRING$ (25, 180)+M$ 

CLS:PRINTTAB(16) ; "G R 0 A M" 

PRINT: PRINT 

PRINT"HOW MUCH NEEDED TO WIN" 

INPUT" (BETWEEN 50-100 IS BEST) ":W:IF W<=0 THEN 200 
PR I NT; PR I NT "LET'S TOSS FOR FIRST ROLL":GOSUB 830 
PRINT; PRINT"THE COIN IS IN THE AIR AND" 

Q$="Y0U":Q=RND(2); IF 0=2 THEN Q$="I" 

PRINTTABCS); ;FOR J=1 TO SiPRINT"'/ ";60SUB a30;NEXT 
PR.INTQ$;" GET THE FIRST ROLL":GOSUB 840:T=0:IF 0=2 THEN 400 
P$=" Y0U":CLS:PRINTTAB(15) : "YOU'RE ROLLING" ; GOSUB 830:GaSUB 500 
T=T+R1+R2;IF F>0 THEN T=0 
IF F=2 THEN H=0 

GOSUB 850: IF F>0 THEN FRINT"DICE PASS TO ME": GOSUB 840; GOTO 400 
PRINT" (P=P ASS DICE - R=ROLL AGAIN) PRINT" YOUR DECISION (P OR R)->" 

Q$=INKEY$:IF 0$="" THEN 350 
IF Q$="R" THEN 300 
IF Q$<>"P" THEN 350 
PRINT:H=H+T; IF H>=W THEN 970 
T=0;F=1: CLS: GOTO 330 
T=0;P$="I" 

CLS:PRINTTAB(16); "I'M ROLLING" ; GOSUB S30: GOSUB 500 
T=T+R1+R2:IF F>0 THEN T=0 
IF F=2 THEN P=0 

GOSUB 850: IF F>0 THEN PRINT"DICE PASS TO YOU"; GOSUB 840:T=O;B0T0 300 
GOSUB 1000; IF X=1 THEN PRINT"I'LL ROLL AGAIN";GOSUB 840:G0f0 410' 

PRINT"I'LL STOP WITH THIS":GDSUB 830:P=P+T:IF P>=W THEN 970 

PRINT; PRINT"DICE PASS TO YOU" : T=0; GOSUB 840: GOTO 300 

D= 1 ; DL=5 : R 1 =RND ( 6 ) ; R2=RND ( 6 ) : FOR K=0 TO ^0 STEP 1:11 

C=D+K; GOSUB 650: C=C+240; GOSUB 650: GOSUB 600; CLS 

GOSUB 660: C=C-240: GOSUB 660: GOSUB 600: CLS 

NEXT: C=D+30; GOSUB 650: C=C+240: GOSUB 650 

C=D+30!R=R1: GOSUB 700 

C=C+240:R=R2: GOSUB 700:F=0:IF Rl=l THEN F=l: GOSUB 800 
IF R2=l THEN F=F+1: GOSUB 810 
IF F=2 THEN GOSUB 920: GOSUB 830 
RETURN 

FOR J=1 TO DL: NEXT: RETURN 

PRINT@C-127, Dl$: PRINT@C-B7, D2$: PRINT@C-47, D2$; PR.INT@C-7, D2$: PRINT@C+33, D3$j s PET 
REM y 

RETURN 

ON R GOSUB 710, 730, 740, 750, 760, 770: RETURN 



I*. *,I>I I ww Wl il--. r.C. 1 U'\|N 

■RINT@C-81 ,C$: :PRINT@C-5,C$: : GOSUB 730: RETURN 
50SUB 740: GOSUB 750; RETURN 
PRINT@C-41 , CHR$ ( 152) : ; FRINT@u-45, CHR$ (152) ,* ; GOSUB 750; RETURN 
PRINT@31, "GROAN": ;RETURN 


PR I NT@5 11," GROAN ; : RETURN 
PRINT@272, "-DESPAIR-": ; RETURN 
FOR K=1 TO 800: NEXT: RETURN 
FOR K=1 TO 2000: NEXT: RETURN 



I r-. ill I I Wi-#' • m U — jL-rV . UUUUO JCj'J 

F'RINT®241," POINTS SCORED YOU ME";: 6=230 


890 

900 

910 

920 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1100 

1110 


GOSUB 960;PRINT@28G, "TOTAL" ;: PR INT@29B, H; 

PRINT®302, P; : PRINT@320, F3$: ; G=360: GOSUB '460 
PF:INT@361,P$;" HAV'E":T "PT^ " 

F'RINT(i40U,F)i;i: :PRINT@480, : RETURN 

PRINT@G,B$; : PRINT@G+2b, M$; ; RETURN 
T=0; CLS; GOSUB 850: IF P>=W THEN PRINT@4S0, "SKILL WINS AGAIN" 
PRINT(a480, "YOU WIN - SHEEP LUCK'" 

END 

V=P+T;IF V>=W THEN 1100 
IF (W-HXIO THEN 1110 
IF P>=H THEN L=T/25;GaT0 1050 
IF V<H THEN L=T/35:GaT0 1050 
L=T/30 

IF RND(0)>L THEN 1110 
X=0; RETURN 
X=l: RETURN 


V— r: 


TftS-'Sc’ p b-v 


5 CLS 

10 C0L0UR15:PRINT"R0TATED SQUARE PRINT : PRINT " EXPERIMENT BY DELETING LINES 
230,280,330,380 SINGLY.... OR ANY THREE AT ONCE" 

14 PRINT" Adapted -for Genie by Ron Hart Sept 85" 

18 PRINT; PRINT"EXPERIMENT BY SWAPPING PLOT COMMAND TO XI, Y2 TO X2,Y1 IN SO 
ME OR ALL OF THE FOUR PLOT LINES" 

19 COLOURIO; print: PRINT"PRESS ANY KEY " : CALL0049 

20 fcls:fgr;fcolour4 
30 PI=3. 1459 

35 PLOTO , OTO 1 59 , OTOl 59 , 95T00 , 95T00 , 0 


110 

LETXC*80 



120 

LETYC=48 



130 

LETW=30 




140 

H=30 



150 

LETDT=PI/18 

80 FCLS:FGR:FC0L0UR2 

160 

'LETTH=0 

90 PI=3. 14159 

170 

F0RN=1T036 

95 PLOTO, 0T0159, 0T0159, 95T00, 95T00, 0 

180 

LETX1=XC 

110 

XC=80 

190 

LETY1=YC 

120 

YC=48 

210 

LETX2=XC+INT (W*COS (TH) ) 

130 

R=25 

220 

LETY2=YC+INT (W*SIN (TH) ) 

140 

Sl=R+5 

230 

FC0L0UR3: PLOTXl , Y2T0X2, Y1 

150 

S2=R+10 

240 

LETX1=X2 

170 

REN 

250 

LETY1=Y2 

190 

REM 

260 

LETX2=XC+W*C0S (TH) -H*SIN (TH) 

200 

DT=2*PI/48 

270 

LETY2=YC+W*SIN (TH) +H*COS (TH) 

210 

TH=0 

280 

PLOTXl , Y1T0X2, Y2 

220 

Xl=0 

290 

LETX1=X2:LETY1=Y2 

230 

Yl=Sl 

310 

LETX2=XC-H*SIN (TH) 

250 

FQRN=1T050 

320 

LETY2=YC+H*C0S (TH) 

260 

LETTH=TH+DT 

330 

FC0L0UR4: PLOTXl ,Y1T0X2, Y2 

270 

X2=S1*SIN (TH) 

340 

LETX1=X2 

280 

Y2=S1*C0S (TH) 

350 

LETY1=Y2 

295 

PLOTXC , YCTOXC+Xl , YC + Yl 

360 

LETX2=XC : LETY2=YC 

300 

LETX1=X2:LETY1=Y2 

380 

FC0L0UR2: PLOTXl , Y1T0X2, Y2 

320 

NEXTN 

390 

LETTH=TH+DT 

330 

DT=1.5*PI/120 

400 

NEXTN 

340 

TH=0 

600 

G0T0600 

350 

F0RN=0T0130 

2800 PLOTXl, Y1T0X2,Y2 

360 

FC0L0UR3 



410 

LETTH=N*DT 



471 

LETX1=S1*C0S (TH) 



472 

LETX2=S2*2. 2*C0S (TH) 



473 

LETY1=S1*SIN (TH) 



474 

LETY2=S2*1 .3*SIN(TH) 



476 

PLOTXC+Xl , YC+Y1T0XC+X2, YC+Y2 



485 

NEXTN 



1000 GOTOIOOO 


